home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pnl010.zip / PLAYDIGI.PAS < prev    next >
Pascal/Delphi Source File  |  1992-03-01  |  1KB  |  40 lines

  1. Program PlayDigi;
  2.  
  3. Uses Crt, DigiSnd;
  4.  
  5. Var
  6.   Resplay : ResplayObject;
  7.   FileName : String;
  8.   Ch : Char;
  9.   Freq, Temp : Integer;
  10.  
  11.  
  12. {main program}
  13. begin
  14.   WriteLn('Playback Sample - by Alex Boisvert');
  15.   WriteLn('==================================');
  16.   WriteLn;
  17.   If (ParamCount < 1) or (ParamStr(1)='') then begin
  18.     Write('■ Enter filename: ');
  19.     ReadLn(FileName);
  20.   end else FileName := ParamStr(1);
  21.   Val(ParamStr(2),Freq,Temp);
  22.   If (ParamCount < 2) or (Freq = 0) then begin
  23.     Write('■ Enter frequency in kHz: ');
  24.     ReadLn(Freq);
  25.   end;
  26.   WriteLn('■ Memory Available: ',(MemAvail/1024):0:0,'k');
  27.   Resplay.Init;
  28.   if not Resplay.Setup(0,4, Freq * 4) then begin
  29.     WriteLn('■ Cannot Initialize Resplay!');
  30.     Halt;
  31.   end;
  32.   Resplay.Load(FileName);
  33.   WriteLn('■ Size of digital sample: ',(Resplay.SoundSize/1024):0:0,'k');
  34.   If not Resplay.EntireFileLoaded then WriteLn('■ Entire file not loaded.');
  35.   Resplay.Play;
  36.   Resplay.Done;
  37.   WriteLn('■ Done.');
  38.   WriteLn;
  39. end.
  40.